[<<Previous Entry]
[^^Up^^]
[Next Entry>>]
[Menu]
[About The Guide]
##############################################################################
###+---------+################################################################
#+-| M_CLOSE |--------------------------------------------------------+#######
#| +---------+ Closes the file buffers associated with the memo_field |#######
#+--------------------------------------------------------------------+#######
##############################################################################
##############################################################################
#+--| Summary |--------------+################################################
#| #INCLUDE memo.hdr |################################################
#+---------------------------+################################################
##############################################################################
##############################################################################
#+--| Syntax |-------------------------+######################################
#| PROCEDURE m_close PROTOTYPE |######################################
#| PARAMETERS MEMO memo_field |######################################
#+-------------------------------------+######################################
##############################################################################
##############################################################################
#######+---| Description |--------------------------------------------+#######
#######| The m_close procedure closes the file buffers associated |#######
#######| with the memo_field, returning the DOS file handle that has |#######
#######| been allocated for the memo_field to DOS. |#######
#######| ------------------------------------------------------------ |#######
#######| Data can be lost if a memo field is not closed before the |#######
#######| record pointer is moved. |#######
#######| ------------------------------------------------------------ |#######
#######| When closed, all buffers associated with the memo are |#######
#######| flushed and therefore any changes in the memo field are |#######
#######| reflected in the memo file. |#######
#######| ------------------------------------------------------------ |#######
#######| FORCE library supports up to 255 open files at one time. |#######
#######| Use the procedure more_handles to allocate DOS file handles. |#######
#######+--------------------------------------------------------------+#######
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| * Insert a message into a memo field. |#########
#########| |#########
#########| text = "Informed about Friday meeting" + dtoc(today()) |#########
#########| |#########
#########| m_open( database->memofield, &F_APPEND ) |#########
#########| m_putln( database->memofield, text ) |#########
#########| m_close( database->memofield ) |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| * Write a generic routine that inserts a header |#########
#########| * line "---Industry Co.---" in each memo field. |#########
#########| |#########
#########| DBFDEF i1 |#########
#########| MEMO i1memo |#########
#########| {...} |#########
#########| ENDDEF |#########
#########| |#########
#########| DBFDEF i2 |#########
#########| MEMO i2memo |#########
#########| {...} |#########
#########| ENDDEF |#########
#########| |#########
#########| PROCEDURE insert_line |#########
#########| PARAMETERS ALIAS a, MEMO info_field |#########
#########| |#########
#########| DO WHILE .NOT. a_eof( a ) |#########
#########| m_open( info_field, &F_CREATE ) |#########
#########| m_putln( info_field, "--Industry Co.--" ) |#########
#########| m_close( info_field ) |#########
#########| !a SKIP |#########
#########| ENDDO |#########
#########| |#########
#########| ENDPRO |#########
#########| |#########
#########| PROCEDURE force_main |#########
#########| |#########
#########| USE i1 ALIAS i1 |#########
#########| insert_line( i1, i1memo ) |#########
#########| USE i2 ALIAS i2 |#########
#########| insert_line( i2, i2memo ) |#########
#########| |#########
#########| ENDPRO |#########
#########+----------------------------------------------------------+#########
##############################################################################
See Also:
m_edit
m_eof()
m_exist()
m_getln
m_open
...
This page created by ng2html v1.05, the Norton guide to HTML conversion utility.
Written by Dave Pearson